100 Plus Great Games 2/100PLUSV2.BIN/games/Sultan.dxr/Internal_32_sultN ROK.ls

Text File | 2002-01-25 | 627 b | 30 lines

property pSultan, spriteNum, pOriginalLoc, pGo, pTimeout, pReachPoint
global gsultan

on beginSprite me
  gsultan = sprite(spriteNum)
  pSultan = sprite(spriteNum)
  pOriginalLoc = pSultan.loc
  pGo = 1
end

on dance me
  if not pReachPoint then
    if pSultan.loc <> (pOriginalLoc + point(125, 0)) then
      pSultan.loc = pSultan.loc + point(1, 0)
    else
      pReachPoint = 1
    end if
  else
    if pReachPoint then
      if pSultan.loc <> pOriginalLoc then
        pSultan.loc = pSultan.loc - point(1, 0)
      else
        pTimeout.forget()
        pGo = 1
        pReachPoint = 0
      end if
    end if
  end if
end